Shareware Grab Bag/Shareware Grab Bag.iso/090/bytjl86b.arc/AC.PRG

Text File | 1980-01-01 | 5KB | 9 lines

ïX▓1º5[
Ö"ôENTER DRIVE # FOR PROGRAM DISK (0 OR 1):":àZ1$:ïZ1$│▒"1"»Z1$│▒"0"º1åù787,┼(Z1$):ïX▓0ºX▓1:ôZ1$¬":MAL.6",8,1æè12220u
::åDC(30),OF(15),TY$(2):â-1,10,1,10000,100E3,10E3,1,3:âIOS,P1,X,P2,IBIAS,RIN,ROUT,VOL,V+,V-:âBF,BR,VA,IS,X,X,CJE,CJC,TF,TR:âVP,IDSS,LAMBDA,IS,X,CGS,CGD:î:üI▓0ñ7:çDC(I):é:üI▓0ñ9:çM$(0,I):é:üI▓0ñ9:çM$(1,I):é:üI▓0ñ6:çM$(2,I):é∙    TY$(0)▓"REAL,IMAG.":TY$(1)▓"MAG,PHASE":TY$(2)▓"DB,PHASE":ù785,0:ù786,192:X▓╖(6):H0▓0:H1▓1:H2▓2:H3▓3:H4▓4:H5▓5:H9▓2¼ :H8▓ ¡180:Ä
á::E1▓EP½H1:E2▓EM½H1:ïEP▓H0º280o
▄A(EP,EP)▓A(EP,EP)¬SR:A(E1,E1)▓A(EP,EP):A(EP,E1)▓A(EP,E1)¬SI:A(E1,EP)▓½A(EP,E1)~

ïEM▓H0º370╤
6
A(EM,EM)▓A(EM,EM)¬SR:A(E2,E2)▓A(EM,EM):A(EM,E2)▓A(EM,E2)¬SI:A(E2,EM)▓½A(EM,E2)Σ
r
ïEP▓H0░EM▓H0ºÄ╕É
A(EP,EM)▓A(EP,EM)½SR:A(E1,E2)▓A(EP,EM):A(EP,E2)▓A(EP,E2)½SI:A(E1,EM)▓½A(EP,E2):A(EM,EP)▓A(EM,EP)½SR:A(E2,E1)▓A(EM,EP):A(EM,E1)▓A(EM,E1)½SI:A(E2,EP)▓½A(EM,E1):Ä:SI▓½H1¡(W¼V1):SR▓H0:ì160:Ä:SR▓H0:SI▓W¼V1:ì160:Äⁿ°::E1▓NX½H1:A(E1,LC)▓A(E1,LC)¬V1:A(NX,LC)▓A(NX,LC)¬V2:ïEP▓H0º940]RA(EP,NX)▓A(EP,NX)¬H1:A(EP½H1,E1)▓A(EP,NX):A(NX,EP)▓A(NX,EP)¬H1:A(E1,EP½H1)▓A(NX,EP):ïEM▓H0ºÄ╖¼A(EM,NX)▓A(EM,NX)½H1:A(EM½H1,E1)▓A(EM,NX):A(NX,EM)▓A(NX,EM)½H1:A(E1,EM½H1)▓A(NX,EM):Ä╔$::ïEP▓H0º1150 FE`A(EP½H1,LC)▓A(EP½H1,LC)½V1:A(EP,LC)▓A(EP,LC)½V2
~ïEM▓H0ºÄ@£A(EM½H1,LC)▓A(EM½H1,LC)¬V1:A(EM,LC)▓A(EM,LC)¬V2:ÄÖ║::E1▓EP½H1:E2▓EM½H1:E3▓CP½H1:E4▓CM½H1:ïCPºïEPºA(EP,CP)▓A(EP,CP)¬V1:A(E1,E3)▓A(EP,CP)╠÷ïCPºïEMºA(EM,CP)▓A(EM,CP)½V1:A(E2,E3)▓A(EM,CP) ïCMºïEPºA(EP,CM)▓A(EP,CM)½V1:A(E1,E4)▓A(EP,CM)22ïEMºïCMºA(EM,CM)▓A(EM,CM)¬V1:A(E2,E4)▓A(EM,CM)8PÄ╒╚::EP▓QB:EM▓QE:SR▓RP:SI▓H0:ì160:SR▓H0:SI▓W¼CI:ì160:EM▓QC:SR▓H0:SI▓W¼CU:ì160:EP▓QE:SR▓RO:SI▓H0:ì160:EP▓QC:EM▓QE:CP▓QB:CM▓QE:ïTY│H0ºEP▓QE:EM▓QC:CP▓QE:CM▓QBÜV1▓GM:ì1210:CP▓QB:CM▓QC:ïTY│H0ºCP▓QC:CM▓QB3₧V1▓GR:ì1210:EP▓QB:EM▓QC:SR▓GU:SI▓H0:ì160:ÄN::EP▓AP:EM▓AM:SR▓RI:SI▓H0:ì160:EP▓AO:EM▓H0:SR▓RO:SI▓H0:ì160:X1▓H1½(F¼F)¡(P1¼P2):X2▓F¼(H1¡P1¬H1¡P2):X3▓AV¼RO:X4▓X1¼X1¬X2¼X2:EP▓H0:EM▓AO:CP▓AP:CM▓AM:V1▓X3¼X1¡X4:V2▓½X3¼X2¡X4:ì1210:ïCPºïEPºA(E1,CP)▓A(E1,CP)½V2:A(EP,E3)▓½A(E1,CP)MΩïCPºïEMºA(E2,CP)▓A(E2,CP)¬V2:A(EM,E3)▓½A(E2,CP)ü∞ïCMºïEPºA(E1,CM)▓A(E1,CM)¬V2:A(EP,E4)▓½A(E1,CM)╡εïEMºïCMºA(E2,CM)▓A(E2,CM)½V2:A(EM,E4)▓½A(E2,CM)╗Ä ::EP▓QG:EM▓QS:SR▓H0:SI▓W¼CS:ì160:EM▓QD:SR▓H0:SI▓W¼CD:ì160:ïX2▓H0ºÄ%ÿEP▓QD:EM▓QS:ïTY│H0ºEP▓QS:EM▓QDH╢CP▓QG:CM▓QS:ïX1│H0ºCP▓QS:CM▓QDw╘V1▓GM:ì1210:EP▓QD:EM▓QS:SR▓RO:SI▓H0:ì160:ÄÄj    ì4750:ïF1▓H1ºì6880ú
ER▓╖(2):X▓╖(1):Äß▄::ƒ15,8,15:ƒ2,8,2,"0:"¬Z1$¬".DC"¬",S,R":ì4660:ïX1▓62º4630ⁿä2,EL:ì4660:ïER▓1º46306ä2,C:ì4660:ïER▓1º4630STåEN$(EL),EA(EL¬1,6):üI▓1ñEL:ä2,EN$(I):é:ì4660:ïER▓1º4630äÉüI▓1ñEL:üJ▓0ñ6:ä2,EA(I,J):é:ì4660:ïER▓1º4630ÑÆïEA(I,0)▓1ºEA(I,1)▓1¡EA(I,1)┬öé:ä2,NM:ì4660:ïER▓1º4630
╠åM1(NM,11):üI▓0ñNM:üJ▓0ñ11:ä2,M1(I,J):é:é:ì4660:ïER▓1º4630Eä2,QN,DN,JN:åTT(QN,8),DD(DN),JF(JN,3):ä2,DC(8):ì4660:ïER▓1º4630ábüI▓0ñDC(8)½1:ä2,DC(9¬I¼4):ä2,DC(10¬I¼4):ä2,DC(11¬I¼4):ä2,DC(12¬I¼4):é:ì4660:ïER▓1º4630╔₧åDC$(DC(8)):üI▓1ñEL:ïEA(I,0)▓9ºC▓C½1∙óé:üI▓0ñDC(8)½1:ä2,DC$(I):é:ì4660:ïER▓1º46305╛C▓C¬C:X▓╕(0):ï((C¼C¬3¼C)¼5¬(C¬1)¼10)▒(X¬100)ºER▓2:ë4630x┌åA(C,C¬1),X(C),B(C):LC▓C¬1:üI▓1ñC¡2:ä2,B(I):é:ì4660:ïER▓1º4630₧ FEüI▓1ñEL:ïEA(I,0)│5░EA(I,0)▒7º4609┤ EA(I,1)▓EA(I,1)¼2
EA(I,2)▓EA(I,2)¼2:EA(I,3)▓EA(I,3)¼2:ïEA(I,0)▓8ºEA(I,4)▓EA(I,4)¼2:EA(I,5)▓EA(I,5)¼2,ïEA(I,0)▓3ºEA(I,4)▓EA(I,4)¼2`é:üI▓0ñDC(8)½1:OF(I)▓3:ï╚(DC$(I),1)▓"Z"ºOF(I)▓2ké:X1▓0xá2:á15:Äñ4::ä15,X1,X1$,X2,X3:ïX1│20░X1▓62░X1▓63ºÄ┬pÖ"DISK ERROR ";X1$:ER▓1:ÄÄ::üI▓1ñEL:æEA(I,0)ì4900,4960,5020,5110,5170,5290,5380,5500,5590,5620:é:ÄF$::SR▓EA(I,H1):EP▓EA(I,H2):EM▓EA(I,H3):SI▓H0:ì160:Äü`::EP▓EA(I,H2):EM▓EA(I,H3):SR▓DD(EA(I,H5)):SI▓H0:ì160:Äσ£::EP▓EA(I,H2):EM▓EA(I,H3):NX▓EA(I,H4):V1▓EA(I,5)¼╛(EA(I,6)¼H8):V2▓EA(I,H5)¼┐(EA(I,6)¼H8):ì760:Ä;÷::EP▓EA(I,2):EM▓EA(I,3):V1▓EA(I,5)¼╛(EA(I,6)¼H8):V2▓EA(I,5)¼┐(EA(I,6)¼H8):ì1060:Ä"2::QC▓EA(I,H1):QB▓EA(I,H2):QE▓EA(I,H3):Y1▓EA(I,H4):T2▓EA(I,H5):GM▓TT(T2,H0):RP▓TT(T2,H2):TY▓M1(Y1,H4):GU▓TT(T2,6):CU▓TT(T2,H5)¼M1(Y1,7)¬TT(T2,8)¼M1(Y1,9):GR▓TT(T2,H1):RO▓TT(T2,H3):CI▓TT(T2,H4)¼M1(Y1,6)¬TT(T2,7)¼M1(Y1,8):ì1480:Ä─¬::QD▓EA(I,H1):QG▓EA(I,H2):QS▓EA(I,H3):Y1▓EA(I,H4):CS▓M1(Y1,H5):CD▓M1(Y1,6):TY▓M1(Y1,H4):T2▓EA(I,H5):X1▓JF(T2,H0):X2▓JF(T2,H1):RO▓JF(T2,2):GM▓JF(T2,3):ì2080:ÄA::AP▓EA(I,H1):AM▓EA(I,H2):AO▓EA(I,H3):Y1▓EA(I,H4):RI▓M1(Y1,H5):RO▓M1(Y1,6):P1▓M1(Y1,H1):P2▓M1(Y1,H3):AV▓M1(Y1,7):ì1870:Äï|::EP▓EA(I,H2):EM▓EA(I,H3):V1▓EA(I,H1):CP▓EA(I,H4):CM▓EA(I,H5):ì1210:Ä╚╓EP▓EA(I,H2):EM▓EA(I,H3):SI▓½H1¡(W¼EA(I,H1)):SR▓H0:ì160:Ä ⌠EP▓EA(I,H2):EM▓EA(I,H3):SI▓W¼EA(I,H1):SR▓H0:ì160:Ä7